home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / MSGLINE.BAS < prev    next >
BASIC Source File  |  1992-04-03  |  933b  |  34 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: MSGLINE.BAS        PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 04/03/92
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM CREATES A SCROLLING MESSAGE FOR STORES,
  7. '  ADVERTISING PURPOSES, OR WHEN YOU'RE OUT OF THE OFFICE.
  8. '  WORKS AS IS FOR MESSAGES LESS THAN 80 CHARACTERS LONG.
  9. '
  10. '  VERSION: 0.50    LAST UPDATED: 00/00/00
  11. '----------------------------------------------------------
  12. CLS:SPEED# = .12
  13. LOCATE 5,1:PRINT "ENTER MSG ON NEXT LINE.":INPUT MESSAGE$
  14. IF LEN(MESSAGE$) < 79 THEN
  15.    FILLER$ = STRING$(79 - LEN(MESSAGE$)," ")
  16.    MESSAGE$ = MESSAGE$ + FILLER$
  17. END IF
  18. NEWMESSAGE$ = MESSAGE$ + " " + MESSAGE$
  19. KY$ = "":X% = 1:Y% = 79
  20. WHILE KY$ = ""
  21.    XMSG$ = MID$(NEWMESSAGE$,X%,Y%)
  22.    LOCATE 15,1:PRINT XMSG$;
  23.    KY$ = "":KY$ = INKEY$
  24.    X% = X% + 1
  25.    IF X% > LEN(MESSAGE$)  THEN
  26.       X% = 1
  27.    END IF
  28.    DELAY SPEED#
  29. WEND
  30.  
  31. END
  32.  
  33.  
  34.